home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / MENU.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-12  |  1.3 KB  |  35 lines
  1. 50  WIDTH 80
  2. 60  SCREEN 0
  3. 100  PRINT "THIS PROGRAM DISPLEYS ALL BASIC FILES ON THE SELECTED DISK"
  4. 110  PRINT "ONE PROGRAM WILL BE IN REVERSE VIDEO. PRESS <- TO CHAIN TO IT."
  5. 120  PRINT "POSITION THE SELECTED PROGRAM WITH THE CURSOR CONTROL KEYS"
  6. 130  PRINT "PRESS E TO END, B TO SELECT DRIVE B, OR OTHER KEY TO CONTINUE"
  7. 132  GOTO 150
  8. 140  K$=INPUT$(1): IF K$="E" OR K$="e" THEN END
  9. 150  IF K$="B" OR K$="e" THEN B=1
  10. 160  CLS: IF B=1 THEN FILES "B:*.BAS" ELSE FILES "*.BAS"
  11. 170  Y=1:X=0
  12. 180  COLOR 0,7
  13. 190  FOR L=1 TO 12 'HIGHLIGHTS THE PROGRAM NAME AT LOCATION Y,X
  14. 200  LOCATE Y,X+L
  15. 210  C$=CHR$(SCREEN (Y,X+L))
  16. 220  PRINT C$: F$=F$+C$
  17. 230  NEXT
  18. 240  COLOR 7,0
  19. 250  K$=INKEY$: IF LEN(K$)=0 THEN 250      ' WAIT FOR KEYSTROKE
  20. 260  IF LEN(K$)=2 THEN 300  ' EXTENDED CHARACTER
  21. 270  IF ASC(K$)=13 THEN 360  'ENTER
  22. 280  IF ASC(K$)=27 THEN STOP 'ESCAPE
  23. 290  GOTO 250
  24. 300  R$=RIGHT$(K$,1): A=ASC(R$)
  25. 310  IF A=72 AND Y>1 THEN GOSUB 370:Y=Y-1: GOTO 180   'UP CURSOR
  26. 320  IF A=80 AND Y<24 THEN IF SCREEN (Y+1,X+1)<>32 THEN GOSUB 370: Y=Y+1: GOTO 180   'DOWN CURSOR
  27. 330  IF A=75 AND X>12 THEN GOSUB 370: X=X-13: GOTO 180  'LEFT CURSOR
  28. 340  IF A=77 AND X<62 THEN IF SCREEN (Y,X+13+1)<>32 THEN GOSUB 370: X=X+13: GOTO 180  'RIGHT CURSOR
  29. 350  GOTO 250
  30. 360  IF B=1 THEN CHAIN "B:"+F$ ELSE CHAIN F$
  31. 370  FOR L=1 TO 12  'REMOVES HIGHLIGHT
  32. 380  LOCATE Y,X+L: PRINT CHR$(SCREEN (Y,X+L))
  33. 390  NEXT: F$=LEFT$(F$,0)
  34. 400  RETURN
  35.